home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 48 / Tiger_Disk_048_1998-03_Tiger-Crew-Disk_de_Side_B.d64 / font grabber (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  125 lines
  1. 10 poke53280,0:poke53281,0:poke646,3
  2. 20 poke53272,peek(53272)or2
  3. 30 gosub1110
  4. 40 print"   [207]ptions:
  5. 50 [153]"             1wait str$isk file.
  6. 60 print"             2[146] [205]emory.
  7. 70 [161]d$:[139]d$[178]""[167]70
  8. 80 d[178][197](d$):[139]d[179]1[176]d[177]2[167]70
  9. 90 [153]"   chr$rab:
  10. 100 print"          1[146] [211]et#0 [213]ppercase/[199]raphics."
  11. 110 print"          2[146] [211]et#1 [204]ower/[213]ppercase."
  12. 120 getg$:ifg$=""then120
  13. 130 g=val(g$):ifg<1org>2then120
  14. 140 gosub1110
  15. 150 input" [206]ame for new [199][197][207][211] font";m$
  16. 160 ifg=2thenf=2048
  17. 170 ifd=2then490
  18. 180 print"[147]  [201]nsert [196]isk [215]ith [198][207][206][212] [198]ile in drive:"
  19. 190 geta$:ifa$=""then190
  20. 200 print"[147]  [215]hen listing reaches [198][207][206][212] to edit,"
  21. 210 print"               [200]it a [203]ey."
  22. 220 open15,8,15
  23. 230 open1,8,0,"$"
  24. 240 get#1,a$,a$
  25. 250 get#1,a$,a$
  26. 260 ifa$=""then380
  27. 270 get#1,a$,a$
  28. 280 get#1,a$
  29. 290 ifa$=chr$(34)thent=t+1
  30. 300 ifa$=chr$(34)ort<>1then320
  31. 310 d$=d$+a$
  32. 320 ifa$=""then340
  33. 330 goto280
  34. 340 printd$
  35. 350 geta$:ifa$<>""then380
  36. 360 d$="":t=0
  37. 370 goto250
  38. 380 close1:close15
  39. 390 print"[205]ove cursor to selection, [200]it [210][197][212][213][210][206][146]"
  40. 400 inputn$
  41. 410 open3,8,8,n$+",p,r"
  42. 420 e=12288
  43. 430 poke780,1:poke781,8:poke782,0
  44. 440 sys65466
  45. 450 poke780,0:poke781,0:poke782,e/256
  46. 460 sys65493
  47. 470 ifpeek(783)and1thenprint"load error":stop
  48. 480 close3:goto510
  49. 490 b=16384*(3-peek(56576)and3)
  50. 500 e=b+(peek(53272)and12)*1024+f
  51. 510 dima$(9,97)
  52. 520 print"[147] [201]nsert [199][197][207][211] [196]isk with <swap> in [196]rive:"
  53. 530 print"               [200]it [210][197][212][213][210][206] [146]"
  54. 540 geta$:ifa$=""then540
  55. 550 print"             [208]lease wait....
  56. 560 [159]1,8,15,"i:0":[159]2,8,2,"#0"
  57. 570 t[178]18:s[178]1
  58. 580 [152]1,"u1";2;0;t;s
  59. 590 [161]#2,t$,s$
  60. 600 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0))
  61. 610 [129]i[178]0[164]7
  62. 620 [152]1,"b-p";2;32[172]i[170]2
  63. 630 [161]#2,z$,p$,q$
  64. 640 [139]z$[178]""[167]670
  65. 650 [161]#2,x$
  66. 660 [139][198](x$)[178]60[167]710
  67. 670 [130]i
  68. 680 [139]t[179][177]0[167]580
  69. 690 [160]1:[160]2
  70. 700 [153]"load    <swap> not on disk.":[137]520
  71. 710 t[178][198](p$[170][199](0)):s[178][198](q$[170][199](0))
  72. 720 [152]1,"u1";2;0;t;s
  73. 730 [152]1,"b-p";2;22
  74. 740 [161]#2,t$,s$
  75. 750 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0))
  76. 760 [129]j[178]0[164]97:a$(0,j)[178][199](0):[130]j
  77. 770 [129]i[178]1[164]8
  78. 780 [129]j[178]0[164]63
  79. 790 a$(i,j)[178][199]([194](e[170]8[172](j[170]32)[170]i[171]1)):[130]j
  80. 800 a$(i,64)[178][199]([194](e[170]512[170]i[171]1))
  81. 810 [129]j[178]65[164]90
  82. 820 a$(i,j)[178][199]([194](e[170]8[172](j[171]64)[170]i[171]1)):[130]j
  83. 830 [129]j[178]91[164]97
  84. 840 a$(i,j)[178][199](0):[130]j
  85. 850 [130]i
  86. 860 [129]j[178]0[164]97
  87. 870 a$(i,j)[178][199](0)
  88. 880 [130]j
  89. 890 p[178]204:j[178]0:i[178]0
  90. 900 [152]1,"u1";2;0;t;s
  91. 910 [161]#2,t$,s$
  92. 920 [152]1,"b-p";2;p
  93. 930 [152]2,a$(i,j);
  94. 940 j[178]j[170]1:[139]j[178]98[167]j[178]1:i[178]i[170]1
  95. 950 [139]i[178]10[167][152]1,"u2"2;0;t;s:[137]1010
  96. 960 p[178]p[170]1:[139]p[179]256[167]930
  97. 970 p[178]2
  98. 980 [152]1,"u2";2;0;t;s
  99. 990 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0))
  100. 1000 [137]900
  101. 1010 [152]1,"r0:"[170]m$[170]"=<swap>"
  102. 1020 [153]"load          lenonversion  lenomplete"
  103. 1030 [153]"           (NULL)eboot chr$val(NULL)(NULL)? ((NULL)/(NULL)) wait"
  104. 1040 [161]a$:[139]a$[178]""[167]1040
  105. 1050 [139]a$[178]"n"[167][158]64738
  106. 1060 [160]1:[160]2
  107. 1070 [153]"load    (NULL)lace chr$val(NULL)(NULL) peekootdisk in str$rive.
  108. 1080 print"          [200]it [210][197][212][213][210][206] [146]"
  109. 1090 geta$:ifa$=""then1090
  110. 1100 ifa=0thena=1:load"geos",8,1
  111. 1110 print"[147]                              [146]"
  112. 1120 print"          [146] [195]ommodore to [199][197][207][211]  [146]"
  113. 1130 print"                              [146]"
  114. 1140 print"             [198][207][206][212] [199][210][193][194][194][197][210]     [146]"
  115. 1150 print"                              [146]"
  116. 1160 print"   [195]opyright 1988 [195][207][205][208][213][212][197]! [208]ub., [201]nc."
  117. 1170 print"          [193]ll [210]ights [210]eserved"
  118. 1180 return
  119. 55554 end
  120. 55555 open15,8,15,"s0:font grabber":close15
  121. 55556 save"font grabber",8:verify"font grabber",8
  122. 55557 print"    [164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  123. 55558 [153]"    'font grabber'wait est re-sauve !!
  124. 55559 end
  125.